Строки, процедуры функции, записи, файлы.

uses crt;
type mas=array[1..50]of integer;
var a:mas;
    n,i:integer;
function Max(n:integer):integer;
var w:integer;
begin
if n>1 then
 begin
  w:=Max(n-1);
  if a[n]<w then Max:=w
  else Max:=a[n]
 end
else Max:=a[1]
end;
 
begin
clrscr;
randomize;
write('Razmer massiva A n=');
readln(n);
writeln('Massiv A:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
write('max=',Max(n));
readln
end.

program n1;
var
s :string;
i,k :integer;
begin
writeln('Введите слово');
readln(s);
writeln('Введите k');
readln(k);
delete(s,3,1);
if k>=3 then
delete(s,k+1,1)
else
delete(s,k,1);
writeln(s);
end.

uses crt;
function Plosh(ax,ay,bx,by,cx,cy:real):real;
begin
Plosh:=abs(ax*(by-cy)+bx*(cy-ay)+cx*(ay-by))/2;
end;
var ax,ay,bx,by,cx,cy,dx,dy,ex,ey:real;
    s,s1,s2,s3:real;
begin
clrscr;
writeln('Введите координаты выпуклого 5-угольника в порядке обхода:');
readln(ax,ay,bx,by,cx,cy,dx,dy,ex,ey);
s1:=Plosh(ax,ay,bx,by,cx,cy);
s2:=Plosh(ax,ay,cx,cy,dx,dy);
s1:=Plosh(ax,ay,ex,ey,dx,dy);
s:=s1+s2+s3;
write('Площадь=',s:0:2);
readln
end.

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите предложение');
readln(s);
for i:=1 to length(s) do
if(i mod 4=1)or(i mod 4=2) then
writeln(s[i]);
readln
end.

if(i mod 4=1)or(i mod 4=2) then

if i mod 4 in [1,2] then

uses crt;
var f,g:text;
    i:byte;
    nf,ng,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(ng);
ng:=ng+'.txt';
assign(g,ng);
rewrite(g);
i:=0;
while not eof(f) do
 begin
  readln(f,s);
  i:=i+1;
  if i<>3 then writeln(g,s);
 end;
close(f);
close(g);
write('Файл ',nf,' переписан в файл ',ng);
readln
end.