Чтение словаря из файла и запись в вектор в ОЗУ

type vector=array[1..500] of string;
var f:text; x,y:vector; i,j,n,k:integer; t,r,v:string; s:boolean;
begin
assign(f,'Kursayin2.txt'); reset(f);
i:=0;
while not eof(f) do
begin
readln(f,t);
i:=i+1;
x[i]:=t;
end; n:=i;
Close(f);
y[1]:=x[1];
for i:=2 to n do
begin
s:=true; j:=1;
while (j<=n) and s do
begin
r:=x[j]; v:=y[i-1]; k:=length(v);
if  (x[j]<>'') then if (r[1]=v[k])then
begin s:=false; y[i]:=r; x[j]:='' end
else j:=j+1;
end;
if not s then begin j:=1; s:=true;
while (j<=n) and s do if x[j]<>'' then begin s:=false; y[i]:=x[j] end
else j:=j+1; end
end;
for i:=1 to n do writeln(y[i]);
for i:=1 to n do writeln(x[i]);
readln;
end.

const m = 500;
type vector = array[1..m] of string;
var f: text;
    x: vector;
    i, j, n, k: integer;
    t: string;
begin
  assign(f, '1.txt');
  reset(f);
  n := 0;
  while not eof(f) and (n < m - 1) do
    begin
      inc(n);
      readln(f, x[n])
    end;
  if not eof(f) then writeln('The file is loaded not completely!');
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if x[i][length(x[i])] = x[j][1]
        then begin
          t := x[j];
          for k := j downto i + 1 do x[k] := x[k - 1];
          x[i + 1] := t;
          break
        end;
  assign(f, '2.txt');
  rewrite(f);
  for i := 1 to n do writeln(f, x[i]);
  close(f);
  write('Complete, press <Enter> to exit');
  readln
end.

var f:text;
i,n:integer;
t:string;
begin
assign(f,'Kursayin1.txt'); rewrite(f);
write('Напишите количество слов: ');
readln(n);
for i:=1 to n do 
begin
readln(t); writeln(f,t);
end; close(f);
end.

var f,g:text;
s:string; p:integer;
begin
assign(f,'Kursayin1.txt'); Reset(f);
assign(g,'kursayin2.txt'); rewrite(g);
while not eof(f) do
begin
Readln(f,s);
p:=length(s);
if s[1]<>s[p] then writeln(g,s);
end;
Close(f);  Close(g);
end.

const m = 500;
      inp_f = 'kursayin1.txt';
      aux_f = 'kursayin2.txt';
      res_f = 'kursayin3.txt';
type vector = array [1..m] of string;
var f, g: text;
    x: vector;
    i, j, n, k: integer;
    t: string;
begin
  assign(f, inp_f);
  rewrite(f);
  write('Enter count of words: ');
  readln(n);
  writeln('Enter ', n, ' words:');
  for i := 1 to n do
    begin
      write(i, ': ');
      readln(t);
      writeln(f, t)
    end;
  Reset(f);
  assign(g, aux_f);
  rewrite(g);
  while not eof(f) do
    begin
      readln(f, t);
      if t[1] <> t[length(t)] then writeln(g, t)
    end;
  Close(f);
  reset(g);
  n := 0;
  while not eof(g) and (n < m - 1) do
    begin
      inc(n);
      readln(g, x[n])
    end;
  if not eof(g) then writeln('The file is loaded not completely!');
  close(g);
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if x[i][length(x[i])] = x[j][1]
        then begin
          t := x[j];
          for k := j downto i + 1 do x[k] := x[k - 1];
          x[i + 1] := t;
          break
        end;
  assign(f, res_f);
  rewrite(f);
  for i := 1 to n do writeln(f, x[i]);
  close(f);
  write('Complete, press <Enter> to exit');
  readln
end.