Создать линейный односвязный список

uses crt;
const m=20;
type ms=array[1..m] of integer;
var a:ms;
    temp,z:integer;
procedure Input(var a:ms;n:integer);
var i:integer;
 begin
  randomize;
  for i:=1 to n do
  a[i]:=random(78)-38;
 end;
procedure Output(var a:ms;n:integer);
var i:integer;
 begin
  for i:=1 to n do
  write(a[i],' ');writeln;
 end;
procedure DltlNgtv(var a:ms;n:integer);
var i,j:integer;
 begin
  i:=1;
  while i<=n do
   begin
    if a[i]<0then
     begin
      for j:=i to n-1 do
       a[j]:=a[j+1];
       n:=n-1;
       a[n]:=0;
     end
    else i:=i+1;
   end;
 end;
function Sort(var a:ms;n:integer;t:integer):integer;
var i,j:integer;
 begin
  for i:=1 to n-1 do
  for j:=n downto i do
   if a[j]<a[j+1]then
    begin
     t:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=t;
    end;
 end;
procedure Insert(var a:ms;n,x:integer);
var i,j:integer;
 begin
  write('‚ўҐ¤ЁвҐ «оЎ®Ґ Ї®«®¦ЁвҐ«м*®Ґ зЁб«® : ');
  readln(x);
  n:=n+1;
  if x<=a[n-1]then a[n]:=x
  else
   begin
    for i:=1 to n-1 do
     if a[i]<=x then
      begin
       for j:=n downto i+1 do
       a[j]:=a[j-1];
       a[i]:=x;
       break;
      end;
   end;
 end;
begin
clrscr;
Input(a,m);
writeln('‚ў®¤ б«гз. зЁбҐ«:');
writeln;
Output(a,m);
writeln;
writeln;
DltlNgtv(a,m);
Sort(a,m,temp);
writeln('Њ*ббЁў Ї®б«Ґ г¤*«Ґ*Ёп ®ваЁж*⥫м*ле н«Ґ¬Ґ*в®ў Ё б®авЁа®ўЄЁ ®бв*ўиЁебп :');
writeln;
Output(a,m);
writeln;
writeln;
Insert(a,m,z);
writeln;
writeln;
writeln('Њ*ббЁў Ї®б«Ґ ўбв*ўЄЁ н«Ґ¬Ґ*в*, ЎҐ§ Ї®вҐаЁ б®авЁа®ўЄЁ :');
writeln;
Output(a,m);
readln;
end.