Как включить поддержку русского языка?

program kursovaya;
uses crt;
const Kol=7;
type tinf=record
imya,nazv,nom,imyarod,god:string;
end;
type mas = array [1..Kol] of string[15];
 
 
 
 
list=^Tlist;
Tlist=record
data:Tinf;
next:List;
end;
const stor: mas = ('„®Ў*ўЁвм ',' Џ®ЁбЄ ',' ‘®авЁа®ўЄ* ',' €§¬Ґ*Ёвм ',' ‡*ЇЁб*вм ',' “¤*«Ёвм ',' ‚л室 ');
var k : byte;
var znom:tinf;
zn:string;
spis:list;
str1,koa,k2:string;
I,j,max_i,ni,kolic,im_poisk:integer;
ch:char;
f,g:text;
procedure addelem(var spis1:list;znom1:Tinf);
var
tmp:list;
begin
if spis1=nil then
begin
getmem(spis1,sizeof(Tlist));
tmp:=spis1;
end
else
begin
tmp:=spis1;
while tmp^.next<>nil do
tmp:=tmp^.next;
getmem(tmp^.next,sizeof(tlist));
tmp:=tmp^.next;
end;
tmp^.next:=nil;
tmp^.data:=znom1;
end;
 
procedure files(var spis1:list);
var tmp:list;
begin
if spis1=nil then begin writeln('spisok pyst');
exit;
end
else
tmp:=spis1;
while  tmp<>nil do
  begin
     max_i:=35-length(tmp^.data.imya);
     write(g,tmp^.data.imya); for i:=1 to max_i do write(g,' ');
     max_i:=8-length(tmp^.data.nazv);
     write(g,tmp^.data.nazv);   for i:=1 to max_i do write(g,' ');
     max_i:=6-length(tmp^.data.nom);
     write(g,tmp^.data.nom);  for i:=1 to max_i do write(g,' ');
     max_i:=10-length(tmp^.data.imyarod);
     write(g,tmp^.data.imyarod);  for i:=1 to max_i do write(g,' ');
     max_i:=6-length(tmp^.data.god);
     write(g,tmp^.data.god);   for i:=1 to max_i-1 do write(g,' ');
     writeln(g,' ');
     tmp:=tmp^.next;
     end;
end;
 
 
procedure vivod(spis1:list);
begin
 
if spis1=nil then
begin
writeln('spisok pyst');
exit;
end;
if spis1<>nil then
begin
writeln('------------------------------------------------------------------------------');
writeln('|No|            ”€Ћ                     |  ѓагЇЇ* | ‚६п | ‘в®Ё¬®бвм | ѓ.а. |');
writeln('------------------------------------------------------------------------------');
end;
 
ni:=0;
while spis1<>nil do
 
  begin
  ni:=ni+1;
  str(ni,koa);
  max_i:=2-length(koa);
 write('|', koa );  for i:=1 to max_i do write(' ');
    max_i:=35-length(spis1^.data.imya);
    write('| ',spis1^.data.imya); for i:=1 to max_i do write(' '); write('| ');
    max_i:=7-length(spis1^.data.nazv);
    write(spis1^.data.nazv);   for i:=1 to max_i do write(' '); write('| ');
    max_i:=6-length(spis1^.data.nom);
    write(spis1^.data.nom);  for i:=1 to max_i do write(' '); write('| ');
    max_i:=10-length(spis1^.data.imyarod);
    write(spis1^.data.imyarod);  for i:=1 to max_i do write(' '); write('| ');
    max_i:=5-length(spis1^.data.god);
    write(spis1^.data.god);   for i:=1 to max_i do write(' '); writeln('| ');
    spis1:=spis1^.next;
    end;
 writeln('------------------------------------------------------------------------------');
writeln;
end;
procedure PrintMenu(var k: byte);
var kod: char;
begin
clrscr;
k:=1;
gotoxy(4,1);
K :=1;
repeat
  for i:=1 to Kol do
   begin
     if I=K then
      begin
         textbackground(2);
         textcolor(12);
 
      end
     else
      begin
         textbackground(1);
         textcolor(15)
      end;
     gotoxy(12*(i-1)+1,1);
     write(stor[i]);
 
   end;
      textbackground(0);
         textcolor(15);
   writeln;
   vivod(spis);
      textbackground(0);
         textcolor(15);
  repeat
  kod:=readkey;
  until Kod in [#13, #75, #77];
  case Kod of
  #75: begin  K := K-1; if K = 0 then K := Kol;
       end;
  #77: begin K :=K+1;  if K =10 then K := 1; end;
   end;
 until Kod = #13 ;
 
 
end;
 
procedure freestek(spis1:list);
var
tmp:list;
begin
while spis1<>nil do
begin
tmp:=spis1;
spis1:=spis1^.next;
freemem(tmp,sizeof(tList));
end;
end;
 
procedure poisk(spis1:list;znom1:string);
begin
while (spis1<>nil) do begin
 
im_poisk:=pos(znom1,spis1^.data.imya);
if im_poisk>0 then
begin
writeln(spis1^.data.imya,' ',spis1^.data.nazv,' ',spis1^.data.nom,' ',spis1^.data.imyarod);
spis1:=spis1^.next;
im_poisk:=0;
end;
end;
writeln;
 
end;
 
procedure delelem(var spis1:list;tmp:list);
var
tmpi:list;
begin
if (spis1=nil) or (tmp=nil) then exit;
if tmp=spis1 then
begin
spis1:=tmp^.next;
freemem(tmp,sizeof(Tlist));
end
else
begin
tmpi:=spis1;
while tmpi^.next<>tmp do
tmpi:=tmpi^.next;
tmpi^.next:=tmp^.next;
freemem(tmp,sizeof(Tlist));
end;
end;
procedure delete(var spis1:list;posi:integer);
var i:integer; tmp:list;
begin
if posi<1 then
exit;
if spis1=nil then
begin
writeln('spisok pyst');
exit
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i)
end;
delelem(spis1,tmp);
end;
 
procedure sortirovka(nom:list);
var
tmp,rab:list;
tmps:tinf;
begin
getmem(tmp,sizeof(Tlist));
rab:=nom;
while rab<>nil do
begin
tmp:=rab^.next;
while tmp<>nil do
begin
if tmp^.data.imya<rab^.data.imya then
begin
tmps:=tmp^.data;
tmp^.data:=rab^.data;
rab^.data:=tmps;
end;
tmp:=tmp^.next
end;
rab:=rab^.next
end;
end;
procedure rednazv(var spis1:list;posi:integer);
var i:integer;
tmp:list;
st:string;
begin
if posi<1 then
exit;
if spis1=nil then
begin
write('spisok pyst');
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i);
end;
writeln('vvedite nazvanie');
readln(st);
tmp^.data.nazv:=st;
end;
procedure rednom(var spis1:list;posi:integer);
var i:integer;
tmp:list;
st:string;
begin
if posi<1 then
exit;
if spis1=nil then
begin
write('spisok pyst');
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i);
end;
writeln('vvedite nomer');
readln(st);
tmp^.data.nom:=st;
end;
procedure redimyarod(var spis1:list;posi:integer);
var i:integer;
tmp:list;
st:string;
begin
if posi<1 then
exit;
if spis1=nil then
begin
write('spisok pyst');
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i);
end;
writeln('vvedite imya roditelya');
readln(st);
tmp^.data.imyarod:=st;
end;
 
 
procedure redimya(var spis1:list;posi:integer);
var i:integer;
tmp:list;
st:string;
begin
if posi<1 then
exit;
if spis1=nil then
begin
write('spisok pyst');
end;
i:=1;
tmp:=spis1;
while (tmp<>nil) and (i<>posi) do
begin
tmp:=tmp^.next;
inc(i);
end;
writeln('vvedite imya');
readln(st);
tmp^.data.imya:=st;
end;
begin
spis:=nil;
clrscr;
k2:='file.txt';
assign(f,'\file.txt');
reset(f);
while not eof(f) do begin
readln(f,str1);
znom.imya:=copy(str1,1,35);
znom.nazv:=copy(str1,36,8);
znom.nom:=copy(str1,44,6);
znom.imyarod:=copy(str1,50,10);
znom.god:=copy(str1,60,5);
addelem(spis,znom);
end;
 repeat
 
   textbackground(0);
   textcolor(15);
   PrintMenu(K);
   clrscr;
 
   textbackground(0);
   textcolor(15);
 
   if k=1 then
    begin
     clrscr;
    writeln('‚ўҐ¤ЁвҐ ”€Ћ гзҐ*ЁЄ*: ');
               readln(znom.imya);
               writeln('‚ўҐ¤ЁвҐ **§ў**ЁҐ ЈагЇЇл: ');
               readln(znom.nazv);
               writeln('‚ўҐ¤ЁвҐ ўаҐ¬п ®ЎгзҐ*Ёп: ');
               readln(znom.nom);
               writeln('‚ўҐ¤ЁвҐ бв®Ё¬®бвм ®ЎгзҐ*Ёп: ');
               readln(znom.imyarod);
               writeln('‚ўҐ¤ЁвҐ Ј®¤ ஦¤Ґ*Ёп гзҐ*ЁЄ*: ');
               readln(znom.god);
               addelem(spis,znom);
    end;
 
 
     if k=2 then
   begin
   clrscr;
                if spis=nil then
                writeln('‚ бЇЁбЄҐ *Ґв §*ЇЁбҐ©')
                else
                begin
                writeln('‚ўҐ¤ЁвҐ Ё¬п ¤«п Ї®ЁбЄ*');
                readln(str1);
                poisk(spis,str1);
                end;
          end;
    
  
   
   case K of
   1: {procedure 1};
   2: {procedure 2};
   end;
 until k = 7;
 close(f);
freestek(spis);
spis:=nil;
end.