ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program baran;
const n=2;
type ozera = record
name: string[10];
glybina: integer;
razmer: integer;
strana: string[10];
end;
var a:array [1..n] of ozera;
c,d,i, p: integer;  names,stranas: string;
t:text;
glybinas,razmers: integer;
begin
for i:= 1 to n do
begin
writeln('ozero  ',i);
ReadLn(a[i].name);
ReadLn(a[i].glybina);
ReadLn(a[i].razmer);
ReadLn(a[i].strana);
end;
for i:= 1 to n do
 begin
 Write(a[i].name,' ',a[i].glybina,' ',a[i].razmer,' ',a[i].strana);
WriteLn;
 end;
For p:=n downto 1 do
for i:= 1 to n-1 do
begin
if a[i].name>a[i+1].name then
 begin
 names:= a[i].name;
 a[i].name:= a[i+1].name;
 a[i+1].name:= names;
 glybinas:= a[i].glybina;
 a[i].glybina:= a[i+1].glybina;
 a[i+1].glybina:= glybinas;
 razmers:= a[i].razmer;
 a[i].razmer:= a[i+1].razmer;
 a[i+1].razmer:= razmers;
 stranas:= a[i].strana;
 a[i].strana:= a[i+1].strana;
 a[i+1].strana:= stranas;
 end;
 end;
c:=a[1].glybina;
d:=a[2].razmer;
for i:=1 to n do begin
If a[i].glybina>c

then c:=a[i].glybina;
if a[i].razmer>d
then d:=a[i].razmer;
end;

assign (t,'output.txt');
 rewrite(t);

 for i:= 1 to n do
 begin
 Writeln(t,a[i].name,a[i].glybina,a[i].razmer,a[i].strana);
 end;
{writeln(t,c);
writeln(t, d ) ;}
close(t);
reset(t) ;


for i:=1 to n do
begin
read(t,a[i].name,a[i].glybina,a[i].razmer,a[i].strana);
writeln(a[i].name,' ',a[i].glybina,' ',a[i].razmer,' ',a[i].strana);
end;

readln(t,c) ;
writeln('samoe glybokoe - ',c) ;
readln(t, d );

writeln('samoe bolbwoe- ', d );

 close(t);
 ReadLn;
 end.