Дан символьный файл f. найти самое короткое слово среди слов, первая буква которых "а"turbo pascal)

Писал на pascalabc.net, но постарался как можно ближе к turbo сделать. если не заработает - пишите, исправим: ) var   f     : text;   i     : integer;   s, j: string; begin   assign(f, 'in.txt');   reset(f);   while not eof(f) do   begin       readln(f, s);       for i : = 1 to length(s) do       if ((s[i] = 'a') and ((length(s) < length(j)) or (j = '' then         j : = s;   end;   writeln(j); end.

Sub massiv()   m=inputbox("введите размерность массива m  ")   i=1   s=""   dim mas()   redim mas(m)   while i< =int(m)       mas(i)=round(rnd*100)       if (mas(i)> =50) and (mas(i)< =90) then           s=s+str(mas(i))           if i< > int(m) then s=s+","           i=i+1         end if      wend     msgbox s end sub

1.var s,s1,s2: string; i,a,sum: integer; beginreadln(s); s1: =' '; s2: ='*'; sum: =0; for i: =1 to length(s) doif pos(s1,s) mod 2=1 then  beginsum: =sum+1; insert(s2,s,pos(s1,s)); delete(s,pos(s1,s),1); end; writeln(sum); writeln(s); end.var  s, s1, s2: string;   i, a, sum: integer; begin  readln(s);   s1 : = ' ';   s2 : = '*';   sum : = 0;   for i : = 1 to length(s) do    if pos(s1, s) mod 2 = 1 then      begin      sum : = sum + 1;       insert(s2, s, pos(s1, s));       delete(s, pos(s1, s), 1);     end;   writeln(sum);   writeln(s); end. 2.var  s, s1, s2: string;   i, a: integer; begin  readln(s);   if length(s) mod 4 = 0 then  begin    for i : = 1 to length(s) do    begin      if (i mod 4) = 1 then        begin        s1 : = copy(s, i, 1);         s2 : = copy(s, i + 3, 1);         delete(s, i, 1);         delete(s, i + 2, 1);         insert(s2, s, i);         insert(s1, s, i + 3);       end;       if (i mod 4) = 2 then      begin        s1 : = copy(s, i, 1);         s2 : = copy(s, i + 1, 1);         delete(s, i, 1);         delete(s, i, 1);         insert(s2, s, i);         insert(s1, s, i+1);       end;     end;   end;   writeln(s); end.