текстовый файл

program Quiz3;
Uses Crt;
var f1:text;
    qwe,i,W:integer;
    a:array [1..100] of string;
    n:array [1..2] of integer;
    max,min,prob,S:string;
    mini:array [1..100] of string;
Procedure Vvod;
    Begin
         Assign(f1,'Text1.txt');
         Rewrite(f1);
         Writeln('Vvvedite tekst:');
         Readln(S);
         For i:=1 to Length(S) do
             Write(f1,S[i]);
         Close(f1);
         Writeln('Please press enter');
         Readln;
         ClrScr;
    End;
Procedure Prosm;
    Begin
         Assign(f1,'Text1.txt');
         Reset(f1);
         Writeln('Your text:');
         Readln(f1,S);
         Writeln(S);
         Writeln;
         Close(f1);
         Writeln('Please press enter');
         Readln;
         ClrScr;
    End;
Procedure zad;
begin
     prob:='';
     w:=1;
     s:=s+' ';
      for i:=1 to length (s) do
         begin
              if s[i]<>' ' then
                 prob:=prob+s[i]
              else
                begin
                   a[w]:=prob;
                   prob:='';
                   w:=w+1;
                end;
         end;
     n[2]:=Length(a[1]);
     min:=a[1];
      for i:=1 to w-2 do begin
       if n[2]>Length(a[i+1])  then
         begin
          n[2]:=Length(a[i+1]);
          min:=a[i+1];
          mini[i]:=mini[i]+min[i];
         end;
         end;
     qwe:=0;
     for i:=1 to length(mini[i]) do begin
     if length(mini[i])=length(mini[i+1]) then
        begin
             qwe:=qwe+1;
             writeln('‚ ЇаҐ¤«®¦Ґ*ЁЁ ',qwe,' ®¤Ё**Є®ўле б«®ў');
     end
     else writeln(mini[i]);
     end;
     ReadLn;
     clrscr;
End;
BEGIN
     textbackground(blue);
     ClrScr;
     W:=0;
     TextColor(yellow);
     While W<=3 do
           begin
                Writeln('Meniu');
                Writeln('1:formirovanie;');
                Writeln('2:prosmotr;');
                Writeln('3:zadanie');
                Writeln('4:Exit');
                Writeln;
                Write('vash vibor!!');
                Readln(W);
                Writeln;
                case W of
                     1:Vvod;
                     2:Prosm;
                     3:zad;
                end;
           end;
END.