спасибо)))
только еще скажите почему в последней строчке выдает 64 ошибку?
program ex18;
const n=3; {kol-vo predmetov}
type st=record
fam:string;
im:string;
oc:array[1..n] of integer;
end;
var j,k,i:integer;
t:array[1..30]of st;
begin
writeln('vvedite kol-vo studentov');
readln(k);
for i:=1 to k do
writeln('vvedite familii');
readln(t[i].fam);
writeln('vvedite ima');
readln(t[i].im);
writeln('ocenci');
for j:=1 to n do
readln(t[j].oc);