где ошибка?)

Program dv;
var
s1:integer;
s2:string;
begin
s1 := StrToInt(Edit1.Text);
s2:='';
repeat
if (s1 mod 2) > 0 then
s2:='1'+s2
else
s2:='0'+S2;
s1:=s1 div 2;
until s1<1;
end.

const
  tetr: array ['0'..'9'] of string[4] =
    ('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001');
var
  s1,s2:string;
begin
  s1 := Edit1.Text;
  s2:='';
  for i:=1 to Length(s1) do
    s2:=s2+tetr[s[i]]+' ';
  Delete(s2,Length(s2),1)
end.

const
  tetr: array ['0'..'9'] of string[4] =
    ('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001');
var
  n,i: integer;
  s1,s2:string;
begin
  write('введите десятичное целое положительное четырехзначное число: ');
  readln(n);
  Str(n,s1);
  s2:='';
  for i:=1 to Length(s1) do
    s2:=s2+tetr[s1[i]]+' ';
  if s2<>'' then Delete(s2,Length(s2),1);
  writeln('двоично-десятичное представление: ',s2);
  readln
end.