Структурированные типы данных. Файлы

Var f: file of integer;
N,s,x: integer;
BEGIN
Assign(f,’d:\data’);
Rewrite(f);
Writeln(‘Введите количество чисел’);
Readln(n);
Writeln(‘Введите числа’);
For i:=1 to n do
Begin
Readln(x);
Write(f,x);
End;
Close(f);
Reset(f);
S:=0;
While (not(eof(f))) do
Begin
Read(f,x);
S:=s+x;
End;
Writeln(‘s= ’,s);
END.

Var f: text;
S: string;
BEGIN
Assign(f,’d:\data.txt’);
Reset(f);
While not(eof(f)) do
Begin
Readln(f,s);
If length(s)> 5 then writeln(s);
End;
Close(f);
END.

Var
f: text;
max,x: integer;
BEGIN
Assign(f,'c:\input.txt');
Reset(f);
max:=1;
While (not(eof(f))) do
Begin
Read(f,x);
if max<x then max:=x;
End;
Writeln('max= ',max:2);
readln;
close(f);
END.

Program dlina;
uses crt;
var
f1 : text;
st : string;
max,min:integer;
begin
clrscr;
    assign (f1, 'c:\file.txt');
    reset(f1);
 while not eof(f1) do 
    begin
      readln(f1, st);
      if length(st)>max then max:=length(st);
    end;
 close(f1);
reset(f1);
 
 while not eof (f1) do
    begin
      readln (f1, st);
      if length(st)<max then max:=length(st);
    end;
 close(f1);
reset(f1);
 
 while not eof(f1) do
    begin 
      readln(f1,st);
      if length(st)=max then
    writeln('min: ',st);
    end;
 readkey;
end.