Pascal/Turbo Pascal - AYUDA

HOLA:
Necesito resolver este ejercicio, me queda en el aire el nombre del estudiante

Realizar un programa que calcule el promedio de calificaciones de un estudiante. Los datos disponibles son el Nombre y las cuatro calificaciones obtenidas.

program promedio;
var
nota:real;
i:integer;
suma:real;
begin
suma:=0.0;
for i:=1 to 4 do
begin
readln(nota);
suma:=suma + nota;
end;
write('el promedio de las notas es :',suma/4);
end.

Veamos...
program promedio;
var
nota, suma:real;
i:integer;
Nombre: string;
begin
Write('Ingrese el nombre: ');
ReadLn(Nombre);
suma:=0.0;
for i:=1 to 4 do
begin
readln(nota);
suma:=suma + nota;
end;
write('el promedio de las notas de ',Nombre,' es: ',(suma/4)5:2);
end.