znamecky

//Napiste program ktory si vypyta mena ziakov a ich znamku a urobi nasledovne vypisy: vsetkych ziakov a so znamkami, nadpiermenych ziakov lepsia znamka ako priemer, vypise priemernu znamku, podpriemernych,
program znamecky;
{$APPTYPE CONSOLE}
uses Crt in 'CRT\crt.pas';
type znamka=0..5;
var i,n,s:byte; p:double;
    z:array[1..255] of znamka;
    m:array[1..255] of string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko ziakov je v triede?: ');
  textcolor(yellow); readln(n); normvideo;
  s:=0;
  for i:=1 to n do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      textcolor(yellow); readln(m[i]); normvideo;
      write('Zadajte znamku ',i,' ziaka: ');
      textcolor(yellow); readln(z[i]); normvideo;
      s:=s+z[i];
    end;
  for i:=1 to n do begin textcolor(yellow); writeln('  ',m[i]:6,' ',z[i]); normvideo; end;
  p:=s/n;
  write('Nadpriemerny ziaci: ');
  for i:=1 to n do if z[i]<p then begin textcolor(yellow); write(m[i],' '); normvideo; end;
  writeln;
  write('Podpriemerny ziaci: ');
  for i:=1 to n do if z[i]>=p then begin textcolor(yellow); write(m[i],' '); normvideo; end;
  writeln;
  write('Priemer znamok bol: ');
  textcolor(yellow); write(p:0:2); normvideo;
  writeln;
  writeln('Zmena znamok');
  for i:=1 to n do
    begin
      case z[i] of
        5:z[i]:=4;
        4:z[i]:=3;
        3:z[i]:=2;
        2:z[i]:=1;
        1:z[i]:=0;
      end;
      textcolor(yellow); writeln('  ',m[i]:6,' ',z[i]); normvideo;
    end;
  readln;
end.