order=record
schplat:string;
schpol:string;
sumr:string;
end:
var mas:array [1..8] of order;
procedure vvod;
k,i:integer
begin
writeln('schplat');
readln(schplat[i]);
writeln( 'schpol');
readln( schpol[i]);
writeln('sumr');
readln(sumr[i]);
end;
вроде какой-то ввод сделал, помогите дальше с алфавитным порядком и выводом