Определения частоты пары соседних символов в каждой строке и формирования файла частот построчно

[Vedrus]

мы с вами говорим на разных языках, так что извините.

[ивт]

Разработать программу анализа текстового файла: Определения частоты пары соседних символов в каждой строке и формирования файла частот построчно.Предусмотреть проверку существования исходного файла и файла частот, с выдачей диагностических сообщен
var f,f1:text; k,i:integer; nm,nm1,a,str1:string;
Program kurs;
uses crt;
procedure open_file (var f:text);
var ok: boolean; s:char; a:string;
begin
ok:=true;
while ok=true do
begin
write('Vvedite nazvanie faila: '); readln(a); if a='' then begin
writeln ('Danna9 programma ne prednazna4ena dl9 raboti s konsoliu'); readln; halt; end;
assign(f,a); {$I-}reset(f); {$I+}
if IOresult <> 0 then
begin
write('Takogo faila ne sywestvuet. Povtorit zapros? (Y/N)');
readln(S); if upcase(s)='N' then halt;
end else ok:=false;
end;
end;
begin clrscr;
k:=0;
writeln('wwedi adres faila');
readln(nm);
writeln('wwedi fail kuda zapishetsya 4astota');
readln(nm1);
ASSIGN(f,nm);
RESET(f);
while not EOF(f) do begin
read(f,a);
for i:=1 to length(a) do begin
if copy(a,i,1)=copy(a,i+1,1) then inc(k);
end;
readln;
end;
Close(f);
ASSIGN(f,nm1);
RESET(f);
assign(f1,str1); {$I-} reset(f1); {$I+} if IOResult <> 0 then
writeln('Fail ne bil sozdan') else writeln ('Fail bil uspewno sozdan');
readln;
close(f1);
end.