Создать файл, содержащий текст на английском языке и некоторые два слова

program slova;
uses crt;
var fp:file of char;
    c:char;
    i:longint;
    s:byte;
    z:real;
    s1,s2:string[10];
begin
     z:=0;
     clrscr;
     write ('vvedite 1e slovo = ');
     readln (s1);
     write ('vvedite 2e slovo = ');
     readln (s2);
     assign (fp,'s.txt');
     rewrite (fp);
     writeln('vvodite!!! kak nadoest press "*" and "Enter"');
     c:=chr(32);
     while (ord(c)<>ord('*')) do
     begin
       close (fp);
       reset (fp);
     end;
     s:=1;
     while not eof (fp) do
     begin
       while read (fp,c)
       if c=s1[s]then
       begin
       s:=s+1;
       if s = lendth(s1) then
       begin
       s:=1;
       z:=z+1;
       end;
       end;
       esle s:=1;
 
     readln;
     close (gp);
     readkey;
     end.

program slova;
uses crt;
var fp:file of char;
    c:char;
    i:longint;
    s,z:byte;
    s1,s2:string[10];
begin
     z:=0;
     clrscr;
     write ('vvedite 1e slovo = ');
     readln (s1);
     write ('vvedite 2e slovo = ');
     readln (s2);
     assign (fp,'s.txt');
     rewrite (fp);
     writeln('vvodite!!! kak nadoest press "*" and "Enter"');
     c:=chr(32);
     while (ord(c)<>ord('*')) do
     begin
       read(c);
       write(fp,c);
     end;
 
     close (fp);
     reset (fp);
     writeln;
 
     s:=1; z:=0;
     while not eof (fp) do
     begin
       read (fp,c);
 
       if c = s1[s] then
       begin
       s:=s+1;
       textcolor(Yellow);
         if s-1 = length(s1) then
         begin
         s:=1;
         z:=z+1;
         end;
       end
       else
       begin
         s:=1;
         textcolor(white);
       end;
       write(c);
      end;
      writeln;
      Write ('slov = ',Z:3);
 
     readln;
     close (fp);
     readkey;
     end.