Ошибка: нельзя запустить модуль Подскажите вообще правильно написан код, если нет, то исправте, не очень разбираюсь (

Unit pari;

Interface

var

F: Text;

Str: string;

i: integer;

procedure assign(F, 'File.txt');

procedure rewrite(F);

procedure writeln ('vvedite stroky: ');

procedure readln(Str);

procedure write(F,Str);

procedure close(f);

procedure reset(f);

procedure while not Eof (F) do begin

procedure read(F,str);

procedure writeln(Str[i], Str[i+1]);

implementation

begin

procedure assign(F, 'File.txt');

procedure rewrite(F);

procedure writeln ('vvedite stroky: ');

procedure readln(Str);

procedure write(F,Str);

procedure close(f);

procedure reset(f);

procedure while not Eof (F) do begin

procedure read(F,str);

for i:=0 to length(Str)-1 do begin

if Str[i] = Str[i+1] then

procedure writeln(Str[i], Str[i+1]);

end;

end;

close(F);

end.

Исходная программа:

program pari;

var

F: Text;

Str: string;

i: integer;

begin

assign(F, 'File.txt');

rewrite(F);

writeln ('vvedite stroky: ');

readln(Str);

write(F,Str);

close(f);

reset(f);

while not Eof (F) do begin

read(F,str);

for i:=0 to length(Str)-1 do begin

if Str[i] = Str[i+1] then

writeln(Str[i], Str[i+1]);

end;

end;

close(F);

end.