Паскаль, текстовый файл....

[Viwwna]

Здравствуйте, и вновь я обращаюсь К Вам за помощью... составила какую то жуть я.. а до ума довести не могу....
Задача
Необходимо в начале программы создать файл (элементы файла вводим с клавиатуры), а в конце программы сначала вывести на экран содержимое созданного файла, а затем отразить полученные результаты.
Описать логическую функцию check(s) для текстового файла s, проверяющую, содержит ли файл s латинские буквы.
Указание: введите файл s (последний элемент в файле '.') и вычислите значение функции check(s).

Program Latin_letters;
{  Программа,проверяющая, содержит ли файл s латинские буквы}
 var
    f: text;
    x: string;
    ch: char;

function check(var s: text) : boolean;
         begin
             assign (f,'C:\SOFT\TUSUR\bin\s.txt');
             reset(f);
               repeat
                  readln(f,x);
                  writeln(x);
             until eof(f);
             close (f);

            end;

                       begin

                assign (f,'C:\SOFT\TUSUR\bin\s.txt');
                reset(f);
               ch := upcase(ch); ch := #0;
               while (ch <> '.') do begin
               read(f, ch);
               writeln(ch);

  if ( (ch >= 'A') and (ch <= 'Z') ) then
                              write ('Файл s содержит латинские буквы')

     else write ('Файл s не содержит латинские буквы');
     end;
     close(f);
end

Спасибо, за то, что всегда оперативно отзываетесь и помогаете.

[GetMax]

Var
  f:Text;
  St:String;
Function Check(S:String):Boolean;
Var
  i:Byte;
Begin
  Check:=False;
  For i:=1 to Length(S) do
  Begin
  If (S[i] in ['a'..'z']) or (S[i] in ['A'..'Z']) then
  Begin
    Check:=True;
    Break
  End;
  End;
End;
Begin
  Assign(f,'C:\SOFT\TUSUR\bin\s.txt');
  Reset(f);
  While Not EOF(F) do
  Begin
    Readln(f,St);
    Writeln(St);
    If Check(St) then Writeln('Yes')
                     else Writeln('No')
  End;
  Close(f);
  Readln
End.

Вам осталось только самостоятельно создать файл