Написать в паскале программу таблицы умнажения на 7

Program chik;
var i:integer;
begin
for i:=1 to 10 do
writeln(7,'*',i:2,'=',i*7:2);
end.

Program Tablitca_na7;
var x,y: integer;
begin
for y:=1 to 10 do
  begin
   for x:=7 to 7 do
    write(x,'x',y,'=',x*y,'   ');
     writeln;
  end;
   end.