Subor - hmotnosť, výška, nadvaha

program subory;

uses crt;

var

meno:array [1..100] of string;

vyska, hmotnost:array [1..100] of integer;

i,j,n,s1,s2:integer;x1,x2:real;

subor:text;

begin

assign(subor,'text.txt');

rewrite(subor);

clrscr;

n:=1;

i:=1;

s1:=0;s2:=0;

writeln('AK CHCES SKONCIT STLAC - N');

repeat

writeln('ZADAJ MENO: ');readln(meno[i]);

writeln('ZADAJ VYSKU: ');readln(vyska[i]);

writeln('ZADAJ HMOTNOST');readln(hmotnost[i]);

write(subor,'MENO ZIAKA:',meno[i],' ');

write(subor,'HMOTNOST ZIAKA: ',hmotnost[i],' ');

write(subor,'VYSKA ZIAKA: ',vyska[i],' ');

if (vyska[i]-100)<hmotnost[i] then writeln('MA NADVAHU') else writeln('NEMA NADVAHU');

s2:=s2+vyska[i];

s1:=s1+hmotnost[i];

inc(n);inc(i);

until upcase(readkey)='N';

n:=n-1;

writeln;

for i:=1 to n do begin

writeln('ziak cislo: ',i);

writeln('meno: ',meno[i]);

writeln('vek: ',vyska[i]);

writeln('hmotnost: ',hmotnost[i]);

writeln;

end;

x1:=s1 div n;

x2:=s2 div n;

writeln ('PRIEMERNA VYSKA JE ',x2:4:2,' A PRIEMERNA HMOTNOST JE ',x1:4:2);

close(subor);

readln;end.