predm что это за программа

Ответ от Ахметшин Марат[гуру]
для начала исправь var tv:uch; на var tv:ludi; uch=array[1..n] of ludi; var tv:uch; исправить на var tv:ludi; uch:array[1..n] of ludi; после write(\'Ocenki3: \'); readln(tv.ocen3); припесать uch индекс :=tv; далее здесь так writeln(\'FIO \':10, \'Predm 1\':10,\'Ocenki 1\':10, \'Predm 2\':10,\'Ocenki 2\':10,\'Predm 3\':10,\'Ocenki 3\':10); for i:=1 to k do begin tv:=uchиндекс; with tv do writeln(fio:10,predm1:10,ocen1:10,predm2:10,ocen2:10,predm3:10,ocen3:10); end; writeln(\'---------------Poisk po ocenkam 4/5-------------------------------\'); дальше не смотрел