Технический форум - Pascal. Динамическая память

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Pascal. Динамическая память (http://www.tehnari.ru/f41/t87021/)

Pascal. Динамическая память

Здравствуйте! Помогите пожалуйста написать программу во вторник сдавать!!!!
Задание такое:
Запись содержит фамилию и 4 оценки. Удалить из списка записи с неудовлетворительными оценками.

Кто исправил мой текст!!!!????

Яся успокойтесь вспомните какой сегодня день и улыбнитесь Завтра (надеюсь) всё восстановится

Так, не так. Просто как вариант может подойдёт.

Код:

Type

STDN = record

FIO: String;

O1,O2,O3,O4:integer;

end;



var

j,i:integer;

STUDNI:array [1..1000] of ^STDN;

bol:char;

begin

bol:='y';

i:=0;

writeln('Введите студней и их 4 оценки');

while bol='y' do

begin

inc(i);

new(STUDNI[i]);

  begin

   write('ФИО ',i,':');readln(STUDNI[i]^.FIO);

   write('Оценка 1 :');readln(STUDNI[i]^.O1);

   write('Оценка 2 :');readln(STUDNI[i]^.O2);

   write('Оценка 3 :');readln(STUDNI[i]^.O3);

   write('Оценка 4 :');readln(STUDNI[i]^.O4);

  end;

writeln('Есть еще студни y/n');read(bol);

end;

for j:=1 to i do

begin

if (STUDNI[j]^.O1<3)or

   (STUDNI[j]^.O2<3)or

   (STUDNI[j]^.O3<3)or

   (STUDNI[j]^.O4<3)then

Dispose(STUDNI[j])

else Writeln(STUDNI[j]^.FIO);

end;

end.